Namespace BAL.Concesion
	Public Class Contrato
		Public Function Listar(ByVal _Parametros As Object()) As DataTable
			Dim _dal As New DAL.Concesion.Contrato
			Return _dal.Listar(_Parametros)
		End Function
		Public Function Grabar(ByVal _Contrato As BEL.Concesion.Contrato) As System.Boolean
			Dim _dal As New DAL.Concesion.Contrato
			If _Contrato.EsNuevo Then
				Return _dal.Insertar(_Contrato)
			Else
				Return _dal.Modificar(_Contrato)
			End If
		End Function
        Public Function Cargar(ByVal intId As Int32) As BEL.Concesion.Contrato
            Dim _dal As New DAL.Concesion.Contrato
            Return _dal.Cargar(intId)
        End Function
        Public Function Anular(ByVal intId As System.Int32) As System.Boolean
            Dim _dal As New DAL.Concesion.Contrato
            Return _dal.ModificaEstado(intId, "AN")
        End Function
	End Class
End Namespace